Shareware Super Platinum 8

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / MAL38.ZIP;1 / FOXPRO.ZIP / SCRPROC.FXP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1994-06-14 | 134.2 KB | 2,743 lines

ALTERf RECORD UNLOCKED nFLAGf NFLAG MALTER BMULT ALTER bADDf mALTERf Current Record has been FF' Deleted Altered8 MALTER FNALTER FNLASTKEY UNIX WINDOWS [Esc] [Ctrl]-[Q] [ESC] [Ctrl]-[Q] [F10] [Ctrl]-[W] [Ctrl]-'[' BANSI cDEFf Make a Selection CCHOICES BNOSEL NSCHEME2 NSCHEME CWREAD MCHOICE FNDEACT MCHOICE CWREAD NTEMP NLEVEL CWINDOW cNAMEf SCREEN:CONSOLE:PRN:LPT1:LPT2:LPT3:LPT4:COM1:COM2:COM3:COM4 cEXTf cEXTf bSIDEWAYSf cMEMPATHf cTEMPPATHf CNAME CPATH BSIDEWAYS CMEMPATH CTEMPPATH File FF&j in use... Waiting for access, Press [Esc] to abort NINKEY BMULT ALERT HALFHEIGHT8 FONT ' STYLE ' COLOR SCHEME FF NLEVEL CWINDOW NWINDOW CFONT2 CFONTS CSTYLE2 NFONT2 NSCHEME2 NPARAMETERCFONT TERCSTYLE NFONT NSCHEME bADDf IF EOF() .OR. (SET("DELETE") = "ON" .AND. DELETED()) .OR. (SET("DELETE") = "OFF" .AND. .NOT. DELETED()) .OR. .NOT. (&cFILTER) IF EOF() .OR. (SET("DELETE") = "ON" .AND. DELETED()) .OR. (SET("DELETE") = "OFF" .AND. .NOT. DELETED()) .OR. .NOT. (&cFILTER) IF .NOT. BOF() .AND. (EOF() .OR. (SET("DELETE") = "ON" .AND. DELETED()) .OR. (SET("DELETE") = "OFF" .AND. .NOT. DELETED()) .OR. .NOT. (&cFILTER)) IF .NOT. BOF() .AND. (EOF() .OR. (SET("DELETE") = "ON" .AND. DELETED()) .OR. (SET("DELETE") = "OFF" .AND. .NOT. DELETED()) .OR. .NOT. (&cFILTER)) IF EOF() .OR. (SET("DELETE") = "ON" .AND. DELETED()) .OR. (SET("DELETE") = "OFF" .AND. .NOT. DELETED()) .OR. .NOT. (&cFILTER) cTXTf nLEVELf NLEVEL CWINDOW CFONT2 CSTYLE2 NFONT2 CFONT CSTYLE ERNFONT mKEYf NEXTKEY NEXTKEY NEXTKEY PRINT cPRNf Printer not ready... Waiting for access, Press [Esc] to abort CPRINT1 NINKEY ALERT FULLPATHz cNAMEf FNPROGRAM FNPROGRAM CNAME CTEMP Record FFFR^D in File in use... Waiting for access, Press [Esc] to abort NINKEY BMULT ALERT CONSOLEz SET CONSOLE &cTEMP CSTATUS CTEMP CFILE NFILE FNFILE DEFINE WINDOW TALK AT 1,1 SIZE 3-1-1,40-1-1 FLOAT SHADOW &cFONTS TALKz &cCOMMAND SET TALK &cTALK CCOMMAND CALTER CFONTS CTALK NALTER NTALK NSCHEME FNFONTS ERFNFILE TERRELEASE nNUMf nLENGTHf NLENGTH cMSGf Enter Choice (Y or N) cCHOICEf <YES> <NO> ENTER \<Yes; CCHOICE MCHOICE FNLEN ENTER ERDIALOG TERFNLASTKEY FNDEACT cMSG1f ALERT ALERT ALERT cMSG1f cMSG2f cMSG3f cMSG4f cMSG5f DEFINE WINDOW ALERT AT nROW,nCOL SIZE nROW2-nROW-1,nCOL2-nCOL-1 FLOAT SHADOW &cFONTS TRACE DEBUG DEFINE WINDOW ALERT AT nROW,nCOL SIZE nROW2-nROW-1,nCOL2-nCOL-1 FLOAT SHADOW &cFONTS cMSG1f cMSG2f cMSG3f cMSG4f cMSG5f CMSG1 CMSG2 CMSG3 CMSG4 CMSG5 BBLK2 BINT2 BINV2 BNO_INT2 TERCFONTS CSCHEME NCOL2 NROW2 NPARAMETERRELEASE ERALERT FNLEN FNANSI NSCHEME FNFONTS ETERBINT BNO_INT RECORD UNLOCKED ALTERf cALTERf CALTER BMULT FNRLOCK MALTER ALTER DELETED DELETED DELETEz DELETEz MALTER BRECALL FNFLOCK FNTAG NORDER DELETED FNRLOCK FNALTER RALTER _COLORf SET COLOR OF NORMAL TO &_COLOR ALERT DIALOG ALERT DIALOG SET COLOR OF NORMAL TO &cNORMAL NWINDOW CNORMAL _COLOR NLEVEL NSCHEME RBNO_INT ERBBLK cCOMMANDf COMMAND bNOWAITf RUN /N &cCOMMAND bNOWAITf RUN /N&cCOMMAND 2.5Fl DRSHELL5.PLB DRSHELL5 DRPATCH 2.5AFFlj 2.5BFFlj DRPATCH DRSHELL ASE to DOS Command Window COMMAND Type 'EXIT' and press [Enter] to leave DOS Shell... Sorry, I couldn't honor that request DRSHELL DRSHELL5 (X)FFlj FOXSWAP.COM FOXSWAP.COM not available. Cannot execute: Not enough memory to execute !/RUN Command. Return to main menu and retry. COMMAND Type 'EXIT' and press [Enter] to leave DOS Shell... (X)FFlj FOXSWAP RUN &cCOMMAND Feature not available RUN &cCOMMAND Command Error. Press any key to continue... RUN &cCOMMAND CCOMMAND BNOWAIT CFOXPRO FNPATH DRPATCH WINDOW NSTART NLEVEL DRSHELL CTEMPPATH ERDRSHELL5 CWOUTPUT SSCREEN cFILEf cPRNf bESC = .T. Coping file to printer Press [Esc] to abort CFILE NFILE NRECCOUNT PLSWAIT NCOUNT RTHERM @ nROW, nCOL SAY cMSG &cFONTS BTEMP CFONTS FNANSI FNLEN FNFONTS CFONT RCSTYLE ERNFONT BNO_INT COLOR NSCHEME cPARMf CPARM CALIAS NALIAS RECORD UNLOCKED DELETED BDELETE MALTER FNRLOCK FNTAG BRECALL FNALTER ALTER _DIALOGf DIALOG cMSG1f _DIALOGf DIALOG DIALOG _DIALOGf DIALOG cMSG1f cMSG2f cMSG3f cMSG4f cMSG5f DEFINE WINDOW ("DIALOG"+cDIALOG) AT nROW,nCOL SIZE nROW2-nROW-1,nCOL2-nCOL-1 FLOAT SHADOW &cFONTS TRACE DEBUG DEFINE WINDOW ("DIALOG"+cDIALOG) AT nROW,nCOL SIZE nROW2-nROW-1,nCOL2-nCOL-1 FLOAT &cFONTS DIALOG cMSG1f cMSG2f cMSG3f cMSG4f cMSG5f CMSG1 CMSG2 CMSG3 CMSG4 CMSG5 BBLK2 BINT2 BINV2 BNO_INT2 ERCDIALOG CFONTS CSCHEME NCOL2 NROW2 NPARAMETER_DIALOG ERRELEASE FNLEN FNANSI NSCHEME FNFONTS ERBBLK ERBINT BNO_INT DISPLAY Already displaying a document File not found cTITLEf DISPLAY CLOSE GROW FLOAT SYSTEM KEYBOARD CHR(27) PLAIN ALT+P KEYBOARD CHR(23) PLAIN Press [Alt]+[P] to print, Press [Esc] to continue... bPR_DRAFTf DISPLAY CFILE CTITLE CWINDOW NLEVEL FNFILE NSCHEME WINDOW IALOG DIALOG FNPRINT CPR_PRN PLSWAIT BPR_DRAFT COMMAND COPY_FILE ENDSPOOL RUNTIMEFFlj EXEFFlj Command Foxpro Dot Prompt 1.0.2 DNARROW DO DOT_DN UPARROW DO DOT_UP RESUME RETURN RETRY bRETRYf bMASTERf SUSPEND &cTEMP UPARROW DNARROW CSAVE CTEMP NSAVE NTEMP SSCREEN COMMAND RELEASE DNARROW RUPARROW ERBRETRY BMASTER {DNARROW} NTEMP2 NTEMP CSAVE CTEMP {UPARROW} NTEMP2 NTEMP CSAVE CTEMP PRINT CPRINT cMSG1f cMSG2f cMSG3f cMSG4f cMSG5f DIALOG Not Acceptable Input, Retype CMSG1 CMSG2 CMSG3 CMSG4 CMSG5 NPARAMETERDIALOG TERALERT ETERBERR ETER" DELETEz EXACTz bMULTf 2.0Fl ANSIFF TERM7j nLINEf cMSG2f cFORM_SCRf cFORM_NDXf bNO_CDXf ERROR SET DELETED &cDELETE SET EXACT &cEXACT SET CONSOLE &cSYS_100 SET DEVICE TO &cSYS_101 SET PRINT &cSYS_102 SET TALK &cSYS_103 &cMSG1 ON ERROR &cERROR SET DELETED &cDELETE SET EXACT &cEXACT SET CONSOLE &cSYS_100 SET DEVICE TO &cSYS_101 SET PRINT &cSYS_102 SET TALK &cSYS_103 Error: FF Program: Line #:FF Line: Cannot Rebuild Indices in Multi-user mode Too many files open. Check your CONFIG.SYS PROMPTF @ 0,0 F PROMPTF &cMSG1 CONTINUE without LOCATE File FF&j Locked and cannot access Press anything to retry, Q to quit to main menu Record FFFR^D in File Locked and cannot access Press anything to retry, Q to quit to main menu Printer not ready Press anything to retry, Q to quit to main menu Fatal Error #176: Cannot clear menu in use Fatal Error #177: Cannot clear popup in use Display Mode Not Available Fatal Error #1157: Cannot update file Fatal Error #1212: Structure Nesting to deep. Error: 1405, !/RUN Command Failed Return to main menu and retry. RESOURCEz Error: Cannot access resource file... LOG ENTRYF Error: FF Program: Line #:FF Line: \<Ignore \<Retry \<Suspend \<Quit to main menu FOXERR.DBF FOXERR Recording Error to Foxpro Error File... You are using F Memory below 640k is FFFF Total memory available is FFFF Working memory available is FFFF EMS limit is FF CONFIG.FP EMS limit is FF CONFIG.SYS files = F Graphics card/monitor is F SET CONSOLE SET DEVICE TO SET PRINT SET TALK CONFIG.FP path = FF CONFIG.FP Foxpro Resource path = FF FOXUSER.DBF SET DELETED &cDELETE SET EXACT &cEXACT SET CONSOLE &cSYS_100 SET DEVICE TO &cSYS_101 SET PRINT &cSYS_102 SET TALK &cSYS_103 cMASTERf MASTER RETURN TO &cMASTER CMSG1 NLINE CMSG2 ETERBFOXERR ERBMASTER ERBRETRY TERCCHOICE ERCCHOICES CDELETE CERROR CEXACTCINKCSYS_100 CSYS_101 CSYS_102 CSYS_103 TERNINKEY ERCEXACT BANSI CDATAPATH BMULT CREINDEX RNLEVEL ERBBLK BNO_INT CFONT CSTYLE NFONT NSCHEME BNO_CDX FNFILE NFILE NTEMP CFORM_SCR CFORM_NDX ALERT FNRLOCK FNCHOICE FOXERR ERR_DATE ERR_TIME ERR_NO ERR_MSG ERR_PROG LINE_NO LINE_MSG CINKEY ERR_STAT ERR_MEM CMASTER mCHOICEf mGETf CFUNC BSKIP NSIZE2 MCHOICE ERMGET ERFNLASTKEY FNCUROBJ cMSG1f cMSG2f cMSG3f cMSG4f Press any key to continue... CMSG1 CMSG2 CMSG3 CMSG4 ERNPARAMETERFNLEN ETERDIALOG mKEYf mKEYf '{FFFF '{TAB}' '{ENTER}' '{BACKTAB}' '{CTRL+F '{ESCAPE}' '{F1}' '{CTRL+HOME}' '{CTRL+PGDN}' '{CTRL+PGUP}' '{ALT+D}' '{ALT+F}' '{ALT+G}' '{ALT+H}' '{ALT+J}' '{ALT+K}' '{ALT+L}' '{ALT+Z}' '{ALT+X}' '{ALT+C}' '{ALT+V}' CHR(F '{ALT+F CHR(0) KEYBOARD &mKEY PLAIN PLEASE WAIT DIALOG cNAMEf nLEVELf CNAME CWINDOW NWINDOW CSCHEME NLEVEL @ nROW, nCOL SAY cMSG &cFONTS BTEMP CFONTS FNANSI ERFNLEN ERFNFONTS ERCFONT TERCSTYLE TERNFONT BNO_INT NKCOLOR NSCHEME bVIEWf bVIEW2f _VIEWf _CURDIRf _ALIASf DESCENDINGF ORDER()z ASCENDING DESCENDING8 SET ORDER TO (nKEY) &cORDER DESCENDINGF ORDER()z BVIEW BVIEW2 CORDER ERNORDER ERFNFILE ER_VIEW TER_CURDIR ER_ALIAS cCOMMANDf SIDEWAYS.COM SIDEWAYS SIDEWAYSF Press any key to print, 'Q' to Quit RUN &cTEMP RUN &cTEMP CFILE CCOMMAND BNOWAIT CCHOICE CTEMP ERFNFILE RCMEMPATH RBDEBUG RDIALOG ERBPRINT CPATH_SEP CDRIV_SEP COMMAND _THERMf THERM nNUMf _THERMf THERM THERM1 ODOMETERzJ _THERMf THERM TRACE DEBUG DEFINE WINDOW ("THERM"+cTHERM) AT nROW - 1,nCOL - 26 SIZE nROW + 3 + nMSGLINES - (nROW - 1) - 1,nCOL + 26 - (nCOL - 26) - 1 FLOAT SHADOW &cFONTS TITLE " Percentage Completed " THERM ....|....|....|....|....|....|....|....|....|.... 10 20 30 40 50 60 70 80 90 THERM THERM cMSG1f Record FF cMSG2f Record FF CMSG1 CMSG2 BHALFPOS CFONTS ERCTHERM RCWOUTPUT RNCOL RNFULLPOS RNMSGLINES NSCHEME NTEMP NTHERM NPARAMETER_THERM TERRELEASE FNFONTS cNAMEf WINDOW cTITLEf bFULLf cBORDERf FLOAT TRACE DEBUG SYSTEMF HALFHEIGHT HALFHEIGHT DEFINE WINDOW (cNAME) AT nSTART,00 SIZE nROW-nSTART-1,nCOL-1 FLOAT TITLE cTITLE &cFONTS DEFINE WINDOW (cNAME) AT nSTART,nTEMP SIZE nROW-nSTART-1,nCOL-nTEMP-nTEMP-1 FLOAT TITLE cTITLE &cFONTS CNAME CTITLE BFULL CBORDER CWINDOW NWINDOW ERCFONTS RCSCHEME RNCOL RNROW RNTEMP NPARAMETERFNPROGRAM NLEVEL RELEASE ALERT ETERDIALOG TERNSCHEME FNFONTS CFONT CSTYLE ERNFONT IN SCR IN SCR BROWSE cINDEXf cINDEX(nINDEX,1)f cINDEX(nINDEX,1)f cINDEX(nINDEX,1)f cINDEX(nINDEX,2) IN SCR bEXTRAf DO FLD_BRO&cFORM_SCR BEXTRA NPARAMETERBADD METERBDISPLAY BSAVED CFORM_NDX CFORM_SCR CPROGRAM RMALTER RNCOL RNDBF NINDEX TERNROW NFORM_NDX NFORM_SCR FNPROGRAM CINDEX RBUNIQUE BEXACT nMOUSEf IN SCR IN SCR nPR_COL STORE nPR_COL&cFORM TO nGO_COL nPR_ROW STORE nPR_ROW&cFORM TO nGO_ROW cINDEXf cINDEX(nINDEX,1)f cINDEX(nINDEX,1)f cINDEX(nINDEX,1)f cINDEX(nINDEX,2) IN SCR DO FLD_TXT&cFORM_SCR DO FLD_SAY&cFORM_SCR bEXTRAf TRACE DEBUG DEFINE WINDOW EDIT AT nROW-nLINES,nTEMP SIZE nLINES-1,nCOL-nTEMP-nTEMP-1 FLOAT &cFONTS cINDEXf \<Toggle Index ( cINDEXf DESCENDINGF ORDERz Descending Ascending8 Toggle \<Order ( \<Add \<Browse \<Delete \<Find \<Goto \<Help \<Recall \<Update \<Quit TOABDFGHRUQ CASE (RECNO() > RECCOUNT() .OR. .NOT. (&cFILTER)) .AND. .NOT. cCHOICE $ "AHRQ" No records on file ABFGHRQ DO FLD_SAY&cFORM_SCR Insufficient disk space DO FLD_SAY&cFORM_SCR DO FLD_GET&cFORM_SCR DO FLD_BRO&cFORM_SCR DO FLD_SAY&cFORM_SCR Delete what? DO FLD_SAY&cFORM_SCR DO FLD_FND&cFORM_NDX DEFINE WINDOW GO_TO AT nGO_ROW,nGO_COL SIZE 7,10 FLOAT SHADOW &cFONTS \<Continue \<First \<Last \<Next \<Previous \<Window \<Quit CFLNPWQ IF EOF() .OR. .NOT. (&cFILTER) DO FLD_SAY&cFORM_SCR .NOT. BOF() .AND. (&cFILTER) IF nREC_PTR <= RECCOUNT() .AND. .NOT. (&cFILTER) DO FLD_SAY&cFORM_SCR .NOT. EOF() .AND. (&cFILTER) IF nREC_PTR <= RECCOUNT() .AND. .NOT. (&cFILTER) DO FLD_SAY&cFORM_SCR IF EOF() .OR. .NOT. (&cFILTER) DO FLD_SAY&cFORM_SCR IF RECNO() = nREC_PTR .OR. .NOT. (&cFILTER) DO FLD_SAY&cFORM_SCR Press [Ctr]-[F7] to wake up window Press [Enter] to deactivate... Move Goto Window Press anything when done RIGHTMOUSE KEYBOARD CHR(32) PLAIN RELEASE nPR_COL&cFORM, nPR_ROW&cFORM PUBLIC nPR_COL&cFORM, nPR_ROW&cFORM STORE WLROW() TO nGO_ROW, nPR_ROW&cFORM STORE WLCOL() TO nGO_COL, nPR_COL&cFORM ?PR_* GO_TO GET_HELP H E L P Command prompt cINDEXf [T]oggle Index - Change Index used by [F]ind command Toggle [O]rder - Current Index in Ascending/Descending Order [A]dd - Add a record to the current database [B]rowse - List all records a page at a time [D]elete - Delete the currently displayed record [F]ind - Search database for record with specified key [G]oto - Display the First, Last, Next, or Previous record [H]elp - Display help information [R]ecall - Recall Deleted Records [U]pdate - Update the currently displayed record [Q]uit - Return to calling program Common full screen keystrokes [ESC] - Abort operation, return to prompt/menu [HOME] - move cursor to beginning field [END] - move cursor to ending field [CTRL][HOME] - repeat last input field completed [CTRL][END] - Complete operation, return to prompt/menu [F1] - Display Help text/call another editor [F10] - Complete operation, return to prompt/menu Key Alternate DOS Alternate SCO Meaning Ctrl-H backspace backspace back one char Ctrl-S left arrow left arrow back one char Ctrl-L right arrow right arrow forward one char Ctrl-A home home back one word Ctrl-F end end forward one word Ctrl-E up up back one field Ctrl-X down down forward one field Key Alternate DOS Alternate SCO Meaning Ctrl-R PgUp PgUp back one screen Ctrl-C PgDn PgDn forward one screen Ctrl-Z Ctrl-left arrow pan left, Foxbase browse Ctrl-B Ctrl-right arrow pan right, Foxbase browse Ctrl-Q Esc Del exit without save, abort oper Ctrl-W Ctrl-End exit and save, complete oper Ctrl-] Ctrl-Home repeat last input field Ctrl-- Ctrl-PgUp zoom out Ctrl-^ Ctrl-PgDn zoom in <F1> Ctrl-[ Help function key Ctrl-G Del Delete current char Ctrl-V Ins Toggle Insert mode GET_HELP Ascending Descending Ascending8 SET ORDER TO (nORDER) &cASCEND DELETED DELETED No Deleted Records KEY DELETED() .AND.( SET FILTER TO &cFILTER DO FLD_BRO&cFORM_SCR DO FLD_SAY&cFORM_SCR SET FILTER TO &cRECALL .AND. DELETED() DO FLD_FND&cFORM_NDX SET FILTER TO &cRECALL DO FLD_SAY&cFORM_SCR DO FLD_SAY&cFORM_SCR cINDEX(nINDEX,2) cINDEX(nINDEX,1)f SET ORDER TO cINDEX(nINDEX,2) &cASCEND IN SCR Update what? DO FLD_GET&cFORM_SCR cINDEXf cINDEX(nINDEX,2) BEXTRA CINDEX TERNWINDOW ERNPARAMETERBADD METERBDISPLAY BSAVED CASCEND RCBROWSE2 RCCHOICE RCCHOICES CFILTER2 RCFONTS CFORM CFORM_NDX CFORM_SCR CPROGRAM RCRECALL MALTER TERNDBF ERNDEL_PTR NFLD_BEG NFLD_END NGO_COL RNGO_ROW ERNMOUSE NINDEX NLINES NORDER NREC_PTR NTEMP SBLANK BLOCATE BLOCATE2 NFORM_SCR NFORM_NDX FNPROGRAM PLSWAIT BUNIQUE BEXACT ALERT TERDIALOG FNFONTS NLEVEL PROMPT BRECALL FNCHOICE RELEASE FNALTERR CHOICE MCHOICE VALID FLD_DEL GO_TO CFILTER RIGHTMOUSECMEMPATH CSYSTEM NSCHEME WINDOW BANSI FNTAG DELETED CBROWSE FNRLOCK ALTER KEYBOARD CHR(23) PLAIN nFLDf DO BRW&cFORM_SCR WITH nFLD &cNAME = PADR(&cDEF,LEN(&cNAME)) &cNAME = &cDEF mVALID = &cWHENX _FLD = &cNAME TERBFOUND ERCDEF METERCNAME ETERCREST CWHEN CWHENX RCVALID RMDESC RMVALID RNPOPUP _CHANGE R_DELETE BSAVED TERFLD ERMALTER FNALTER BEXTRA CPROGRAM RFNRLOCK ERNFLD_BEG NFLD_END GET_NAME GET_DEF ALTER GET_VALID GET_REST GET_POPUP GET_WHEN NEXTKEY KEYBOARD CHR(23) PLAIN nFLDf RECORD UNLOCKED _CHANGEf _DELETEf DO BRV&cFORM_SCR WITH nFLD PROMPT()F mDESC mdESC WITH F &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST IF TYPE("_FLD") = TYPE(cNAME) .AND. _FLD = &cNAME mVALID = &cVALID mVALIDf DO ERR &cERR TERBERR ERBFOUND TERCERR ETERCNAME CREST CVALID RMDESC RMDUMMY RMVALID RNPOPUP _CHANGE _DELETE RBSAVED MALTER TERFNALTER ERFLD ALTER DELETE BEXTRA VALID RCPROGRAM RFLD_UQS GET_NAME GET_VALID GET_DESC GET_REST GET_ERR GET_POPUP FLD_POP FNRLOCK FLD_DES SCR.DBF Screen Database Missing No screen specified in screen database FIELDS nCOL = SAY_COL + LEN(&cTXT) :P="@"+F +" "+ :P="@"+F :B=(F :W=BRW(FF :W=.F.8 :V=BRV(FF OMITF MEMOF TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE &cFIELDS &cBROWSE &cREAD WINDOW (cNAME) WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD ERBADD TERBALIAS TERBDISPLAY BSAVED RCFIELDS RCNAME RCPIC CRANGE RCREAD CREAD_ERR CREST CTITLE RCVALID CWHEN CWHENX TERMALTER ERMDUMMY NFLD_BEG RNFLD_END RNPOPUP NSAY_COL NSAY_ROW FNFILE ICKCPROGPATH BNO_CDX GPATH NNO_CDX NFORM_SCR SAY_ROW SAY_COL SAY_TXT GET_COL GET_ROW ERGET_NAME GET_VALID GET_PIC GET_FUNC GET_REST GET_RANGE GET_POPUP GET_WHEN GET_BROWSENLEVEL ECBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG TMOUSECTRL YSTEM KEYBOARD CHR(23) PLAIN RECORD UNLOCKED bEXTRAf Record will be Deleted. Are you Sure? IF EOF() .OR. .NOT. (&cFILTER) bEXTRAf BBROWSE LCLICKNDEL_PTR RNREC_PTR RFNRLOCK ERFNALTERR BSAVED BEXTRA RWHEN RCPROGRAM RNDBF YESNO RDELETE VALID _DELETE cVARREADf cFORM_SCRf IN SCR cFORM_SCRf DO FLD_DES&cFORM_SCR WITH cVARREAD SCR.DBF Screen Database Missing cVARREADf cVARREADf cVARREADf cFLD_DESC = &cDESC PROMPT F mDUMMY = &cNAME FIELD FF SELECT &cD SKIP FOR FF .AND. .NOT.( SET FILTER TO &cD SEEK FF SEEK FF SEEK RTRIM(&cD) FIELD FF SKIP FOR F SKIP FOR F PROMPT() cFLD_DESC = &cD cFILTER_f SET FILTER TO &cFILTER_ FILES FF cFLD_DESC = &cDESC IF mDUMMY = PADR(&cPOPUP(nD,1),LEN(mDUMMY)) SKIP FOR F PROMPT() cFLD_DESC = &cD IF mDUMMY = &cPOPUP(nD,1) SKIP FOR F PROMPT() cFLD_DESC = &cD CVARREAD BALIAS ICKCD L_PTR RCDESC RCFILTER_ RCFLD_DESC CNAME CPOPUP RMDUMMY RMVALID RNFLD NPOPUP NTEMP NFORM_SCR CFORM_SCR FNFILE CPROGPATH TERBNO_CDX GPATH NNO_CDX GET_NAME GET_DESC RGET_POPUP NMEMOWIDTH Current Index not Orderd SCR.DBF Screen Database Missing No index specified in screen database Press [Enter] for default Press [Esc] to abort DO FLD_HELP DO FLD_POP KEYBOARD CHR(23) PLAIN WITH F PICTURE F FUNCTION F RANGE F COLOR F STORE PADR(&cDEF,LEN(&cNAME)) TO mDUMMY, &cNAME STORE &cDEF TO mDUMMY, &cNAME IF (&cWHENX) SPACE(F nCOL = LEN(&cTXT) DO DIALOG WITH PADR(&cTXT,WCOLS()-1 - 1) @ nROW,nCOL GET &cGET Press [F2] for popup READ &cREAD &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST IF LASTKEY() <> 28 .AND. &cNAME = mDUMMY cFORM_SCRf mVALID = &cVALID DO ERR &cERR cSEARCH = cSEARCH + &cMSG cDISPLAY = cDISPLAY + IIF(TYPE(cNAME)="C",ALLTRIM(&cNAME),"") SOUNDEX(F SOUNDEX( UPPER( mDUMMY = &cMSG mDUMMYf &cNAME = mDUMMY mDUMMY = &cMSG RELEASE LOC_&cFLD PUBLIC LOC_&cFLD LOC_&cFLD = mDUMMY .AND.8 cLOCATE = cLOCATE + IIF(EMPTY(cLOCATE),"",".AND.") + "LOC_" + cFLD + "=RIGHT(RTRIM(" + STRTRAN(cMSG,"M->") + ")," + STR(LEN(LOC_&cFLD)) + ")" cLOCATE = cLOCATE + IIF(EMPTY(cLOCATE),"",".AND.") + "LOC_" + cFLD + "=LEFT(LTRIM(" + STRTRAN(cMSG,"M->") + ")," + STR(LEN(LOC_&cFLD)) + ")" .AND.8 .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BALIAS ICKBDISPLAY RBERR RBLEFT RBRIGHT BSOUNDEX CCOLOR RCDEF RCDISPLAY RCGET CFUNC CLOCATE CNAME CRANGE TERCREAD CREST CSEARCH CVALID CWHEN RCWHENX MDUMMY DTHMVALID Y_ROW ICKNFLD NPOPUP NREC_PTR NSAY_COL NTEMP BLOCATE BLOCATE2 FNFILE CPROGPATH BNO_CDX ERSCR GPATH NNO_CDX NFORM_NDX DIALOG _POPUP GET_MSG SESAY_COL GET_NAME GET_VALID GET_READ GET_REST GET_ERR SAY_ROW SAY_TXT GET_PIC GET_FUNC EGET_RANGE GET_COLOR GET_DEF GET_POPUP GET_WHEN FLD_POP BEXACT PLSWAIT NORDER CFILTER FNFOUND Press [F10] when done Press [Esc] to abort DO FLD_HELP DO FLD_POP KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. IF (&cWHEN) &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST nCOL = SAY_COL + LEN(&cTXT) PROMPT()F mDESC mdESC WITH F PICTURE F FUNCTION F RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F COLOR F MEMOF MEMOFF cFILE = &cMEMO IF (&cWHENX) STORE &cMSG TO cMSG Press [F10] to exit field Press [Esc] to abort mVALID = &cVALID mVALIDf DO ERR &cERR SAY 8 SAY 8 EDITF EDIT SAY 8 IF .NOT. (&cWHENX) = &cVALID @ nROW,nCOL &cSAY STORE &cMSG TO cMSG EDITF Press [Tab] or [Shift]-[Tab] to exit field Press [F2] for popup @ nROW,nCOL &cGET READ &cREAD TIMEOUT F TIMEOUT nTO_READ8 @ nROW,nCOL &cGET READ &cREAD EDITF &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST @ nROW,nCOL &cSAY @ nROW,nCOL &cSAY mVALID = &cVALID @ nROW,nCOL &cSAY mVALIDf DO ERR &cERR @ nROW,nCOL &cSAY MEMOFF cFILE = &cMEMO CWINDOW NWINDOW CKBERR RBMEMO RCCOLOR CFILE RCFLD_DESC CFUNC RCGET CMEMO RCMSG CNAME CRANGE CREAD CREST CSAY_COLORCSIZE CVALID CWHEN CWHENX MDESC RMDUMMY MVALID DTHNCOL NFLD_KEY KNPOPUP NSAY_COL NSAY_ROW NTEMP DIALOG CATE2 MOUSE RIGHTMOUSEBSAVED ERSCR _DESC NFLD_BEG NFLD_END GET_NAME GET_REST GET_WHEN GET_VALID FLD_SAY SEFLD_UQS SAY_ROW SAY_COL SAY_TXT GET_COL GET_ROW GET_DESC GET_READ GET_ERR GET_MSG EGET_PIC GET_FUNC GET_RANGE SIZE_1 SIZE_2 SIZE_3 GET_COLOR GET_POPUP NLEVEL FLD_SET BMULT RFNALTERR FLD_POP FLD_DES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE KEYBOARD CHR(23) PLAIN SCR.DBF Screen Database Missing nFORMf nFORM_SCRf cVARREADf cVARREADf cVARREADf cVARREADf nCOL = SAY_COL + LEN(&cTXT) DEFINE WINDOW GET_HELP AT nLROW,nLCOL SIZE 11,39 FLOAT GROW SHADOW ZOOM TITLE " H E L P " &cFONTS Press [F10] when done Press [Esc] to abort NOEDIT8 MODIFY MEMO GET_MEMO &cTEMP WINDOW GET_HELP GET_HELP DIALOG cFORM_SCRf EDITF MEMOF CVARREAD NFORM CKF10 RBALIAS RCFONTS RCPIC CTEMP RCVALID MVALID RNCOL RNFLD NLASTKEY NLROW NLCOL FNFILE CPROGPATH _COLORBNO_CDX GPATH NNO_CDX NFORM_SCR GET_NAME GET_VALID BDEBUG GET_PIC SAY_ROW SAY_COL SAY_TXT KGET_COL GET_ROW GET_MEMO NSCHEME FNFONTS DIALOG RELEASE FNLASTKEY KEYBOARD CHR(23) PLAIN BHELP CKNMOUSE RNFLD RNFLD_BEG RCTEMP NTEMP RNFLD_END FLD_HELP KEYBOARD CHR(23) PLAIN SCR.DBF Screen Database Missing cVARREADf cVARREADf cVARREADf cVARREADf DO FLD_HELP WITH nFLD nCOL = SAY_COL + LEN(&cTXT) RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F PROMPT F mDUMMY = &cNAME FIELD FF SELECT &cD SKIP FOR FF .AND. .NOT.( SET FILTER TO &cD SEEK FF SEEK FF SEEK RTRIM(&cD) No records on file cFILTER_f SET FILTER TO &cFILTER_ DEFINE POPUP POP_UP FROM nROW,nCOL PROMPT &cD SHADOW DEACTIVATE POPUP POP_UP Press [Enter] to Select cFILTER_f SET FILTER TO &cFILTER_ &cNAME = PADR(&cPOPUP(1,1),LEN(mDUMMY)) &cNAME = &cPOPUP(1,1) IF bADD .OR. mDUMMY <> &cNAME SCATTER MEMVARFF FILES FF FILES FF LIKE F cD = ALLTRIM(&cD) No files matching specified directory. IF ASCAN(FLD,&cNAME) = 0 &cNAME = FLD(1,1) Press [Enter] to Select @ nROW,nCOL &cGET FUNCTION '^*T' FROM FLD WHEN fnPOPKEY() READ &cREAD &cNAME = PADR(&cNAME,LEN(mDUMMY)) IF bADD .OR. mDUMMY <> &cNAME SCATTER MEMVARFF BARFF PUBLIC &cBAR STORE 1 TO &cBAR IF mDUMMY = PADR(&cPOPUP(nD,1),LEN(mDUMMY)) STORE nD TO &cBAR IF mDUMMY = &cPOPUP(nD,1) STORE nD TO &cBAR DEFINE BAR nD OF POP_UP PROMPT &cD DEACTIVATE POPUP POP_UP Press [Enter] to Select ACTIVATE POPUP POP_UP BAR &cBAR STORE BAR() TO &cBAR &cNAME = PADR(&cPOPUP(BAR(),1),LEN(mDUMMY)) &cNAME = &cPOPUP(BAR(),1) CVARREAD CKFLD RBALIAS RBFOUND RCBAR CCOLOR RCFILTER_ RCNAME CPOPUP RCRANGE CREAD CSIZE MDUMMY MVALID _COLORNDBF NLASTKEY NPOPUP NSAY_COL NSAY_ROW NTEMP FNFILE CPROGPATH BNO_CDX GPATH NNO_CDX NFORM_SCR GET_NAME GET_POPUP SAY_ROW SAY_COL SAY_TXT GET_COL SEGET_ROW ERGET_READ GET_RANGE SIZE_1 SIZE_2 GET_PIC SIZE_3 GET_COLOR NMEMOWIDTHPOP_UP HDIALOG BDISPLAY FLD_SHW CPATH_SEP NEXTKEY nCOL = SAY_COL + LEN(&cTXT) PROMPT()F mDESC mdESC PICTURE F FUNCTION F RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F COLOR F BARFF RELEASE &cBAR MEMOF MEMOFF PUBLIC &cMEMO &cMEMO = fnFILE() cFILE = &cMEMO DEFINE WINDOW (cMEMO) AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE &cFONTS &cNAME = PADR(&cDEF,LEN(&cNAME)) &cNAME = &cDEF IF (&cWHEN) &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST SAY 8 EDITF mVALID = &cVALID @ nROW,nCOL &cSAY CWINDOW NWINDOW CKBMEMO RCBAR RCCOLOR RCDEF CFILE CFLD_DESC CFONTS CFUNC RCMEMO CNAME RCPIC CRANGE CREST CSAY_COLORCSIZE CVALID LORCWHEN CWHENX MDESC MDUMMY MVALID Y_ROW NPOPUP NSAY_COL NSAY_ROW KBDISPLAY SBLANK FNFOUND MALTER FNALTER NFLD_BEG NFLD_END SAY_ROW ESAY_COL RSAY_TXT GET_COL GET_ROW GET_NAME GET_VALID GET_DESC GET_REST GET_PIC HGET_FUNC HGET_RANGE SIZE_1 SIZE_2 SIZE_3 GET_COLOR GET_WHEN RGET_DEF GET_POPUP FNFONTS NLEVEL EFLD_DES nLASTKEYf _OBJf nLASTKEYf nLASTKEYf NLASTKEY NFLD_KEY K_OBJ RNFLAG RNMAX NTEMP NFLD_END NFLD_BEG RNMOUSE SCR.DBF Screen Database Missing nCOL = SAY_COL + LEN(&cTXT) PICTURE F FUNCTION F RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F COLOR F MEMOF SAY 8 EDITF @ nROW,nCOL &cSAY BALIAS CCOLOR KCFLD_DESC CFUNC RCNAME RCPIC CRANGE CREST CSAY_COLORCSIZE RCVALID CWHEN CWHENX MDUMMY COLORND NRECNO LORNROW NSAY_COL NSAY_ROW FNFILE CPROGPATH BNO_CDX GPATH NNO_CDX NFLD_BEG NFLD_END KSAY_ROW SAY_COL SAY_TXT GET_COL GET_ROW GET_NAME GET_VALID GET_REST GET_PIC GET_FUNC GET_RANGE SIZE_1 SIZE_2 SIZE_3 GET_COLOR GET_WHEN RNDBF FLD_DES NLASTKEY SCR.DBF Screen Database Missing Bad screen database nCOL = SAY_COL + LEN(&cTXT) PICTURE F FUNCTION F COLOR F FILLF @ SAY_ROW,SAY_COL FILL TO GET_ROW,GET_COL &cCOLOR DOUBLEF PANELF DOUBLEF PANELF @ SAY_ROW,SAY_COL TO GET_ROW,GET_COL &cSAY nSAY_COL = SAY_COL + MAX((GET_COL - SAY_COL - LEN(&cTEMP)) / 2,0) @ SAY_ROW,nSAY_COL SAY &cSAY MEMOF EDITF @ SAY_ROW,SAY_COL SAY &cSAY CCOLOR CFUNC KCPIC RCTEMP RCTXT NTEMP OLORFNFILE CPROGPATH BNO_CDX GPATH NNO_CDX COLORNFORM_SCR NFLD_BEG NFLD_END RNMOUSE NSAY_ROW SAY_ROW NSAY_COL SAY_COL SAY_TXT GET_COL GET_ROW GET_NAME SAY_PIC SAY_FUNC SAY_COLOR GET_PIC GET_VALID No index specified in screen database cSEARCH = cSEARCH + &cMSG DO FLD_UNQ&cFORM_NDX BUNIQUE KCSEARCH NREC_PTR RNFORM_NDX M_NDX GET_MSG ORBADD cINDEXf nINDEXf cINDEX(nINDEX,1)f cINDEX(nINDEX,2) IN SCR cINDEX(nINDEX,2) IN SCR cFORM_SCRf Index Key(s) Not Unique CINDEX BFLAG KNSAV RNINDEX NFORM_NDX CFORM_NDX BUNIQUE FLD_UNQ nMOUSEf IN SCR OPTION DO FLD_TXT&cFORM_SCR DO OPT_TXT&cFORM_SCR DO OPT_SAY&cFORM_SCR DO OPT_GET&cFORM_SCR bEXTRAf TRACE DEBUG DEFINE WINDOW OPTION AT nROW-nLINES,nCOL SIZE nLINES-1,38 FLOAT &cFONTS cPRNf \<Print \<Screen \<Continue \<Help \<Update \<Quit OPTION Print what? DO OPT_TXT&cFORM_SCR Retain Output (Y or N)? bPR_DRAFTf Display what? DO OPT_TXT&cFORM_SCR Retain Output (Y or N)? OPTION Screen Query -- FF SYSTEM GROW ZOOM CLOSE Press [F10] or [Esc] to exit OPTION OPT_HELP H E L P cPRNf Command prompt [S]creen - Send output to screen [P]rinter - Send output to printer Command prompt [C]ontinue - Exit option grid, Continue with operation [H]elp - Display help information [U]pdate - Update the currently displayed option grid [Q]uit - Abort operations, return to calling program Common full screen keystrokes [ESC] - Abort operation, return to prompt/menu [HOME] - move cursor to beginning field [END] - move cursor to ending field [CTRL][HOME] - repeat last input field completed [CTRL][END] - Complete operation, return to prompt/menu [F1] - Display Help text/call another editor [F10] - Complete operation, return to prompt/menu Key Alternate DOS Alternate SCO Meaning Ctrl-H backspace backspace back one char Ctrl-S left arrow left arrow back one char Ctrl-L right arrow right arrow forward one char Ctrl-A home home back one word Ctrl-F end end forward one word Ctrl-E up up back one field Ctrl-X down down forward one field Key Alternate DOS Alternate SCO Meaning Ctrl-R PgUp PgUp back one screen Ctrl-C PgDn PgDn forward one screen Ctrl-Z Ctrl-left arrow pan left, Foxbase browse Ctrl-B Ctrl-right arrow pan right, Foxbase browse Ctrl-Q Esc Del exit without save, abort oper Ctrl-W Ctrl-End exit and save, complete oper Ctrl-] Ctrl-Home repeat last input field Ctrl-- Ctrl-PgUp zoom out Ctrl-^ Ctrl-PgDn zoom in <F1> Ctrl-[ Help function key Ctrl-G Del Delete current char Ctrl-V Ins Toggle Insert mode OPT_HELP Update what? DO OPT_GET&cFORM_SCR BEXTRA CWINDOW KNPARAMETERBADD METERBDISPLAY BPRINT BSAVED BSIDEWAYS CCHOICE CCHOICES CFILE CFONTS CFORM_SCR CPROGRAM NMOUSE COLORNDBF NFLD_BEG RNFLD_END NLINES NREC_PTR NTEMP SBLANK NFORM_SCR FNPROGRAM FNFILE PLSWAIT ALERT TERDIALOG FNFONTS NLEVEL OPTION PROMPT FNCHOICE RELEASE CHOICE MCHOICE SET_VIEW PRINT YESNO FNPRINT RSIDEWAYS ENDSPOOL BPR_DRAFT COMMAND HCOPY_FILE NSCHEME WINDOW NWINDOW BANSI FNLASTKEY Press [F10] when done Press [Esc] to abort DO FLD_HELP DO FLD_POP KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. IF (&cWHEN) &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST DO OPT_TXT&cFORM_SCR DO OPT_SAY&cFORM_SCR nCOL = SAY_COL + LEN(&cTXT) PROMPT()F mDESC mdESC OPT(nFLD - nFLD_BEG + 1)8 WITH F PICTURE F FUNCTION F RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F COLOR F MEMOF MEMOFF IF (&cWHENX) STORE &cMSG TO cMSG Press [F10] to exit field Press [Esc] to abort mVALID = &cVALID mVALIDf DO ERR &cERR SAY 8 SAY 8 EDITF EDIT SAY 8 IF .NOT. (&cWHENX) = &cVALID @ nROW,nCOL &cSAY STORE &cMSG TO cMSG EDITF Press [Tab] or [Shift]-[Tab] to exit field Press [F2] for popup @ nROW,nCOL &cGET READ &cREAD EDITF &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST @ nROW,nCOL &cSAY @ nROW,nCOL &cSAY mVALID = &cVALID @ nROW,nCOL &cSAY mVALIDf DO ERR &cERR @ nROW,nCOL &cSAY DO OPT_TXT&cFORM_SCR CWINDOW NWINDOW KBERR METERBMEMO ETERCCOLOR CFLD_DESC CFUNC CMEMO CNAME CRANGE CREAD CREST OLORCSAY CSAY_COLORCSIZE RCTXT CVALID CWHEN CWHENX MDESC MVALID RM_SCR NFLD_KEY NPOPUP TERNSAY_COL NSAY_ROW NTEMP DIALOG MOUSE RIGHTMOUSEBSAVED _DESC NFLD_BEG NFLD_END GET_NAME GET_REST GET_WHEN RGET_VALID SAY_ROW SAY_COL HSAY_TXT GET_COL GET_ROW GET_DESC GET_READ GET_ERR GET_MSG RGET_PIC GET_FUNC GET_RANGE SIZE_1 SIZE_2 SIZE_3 GET_COLOR GET_POPUP NLEVEL FLD_SET FLD_POP RFLD_DES nCOL = SAY_COL + LEN(&cTXT) PROMPT()F mDESC mdESC PICTURE F FUNCTION F RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F COLOR F BARFF RELEASE &cBAR MEMOF MEMOFF DEFINE WINDOW (cMEMO) AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE &cFONTS &cNAME = PADR(&cDEF,LEN(&cNAME)) &cNAME = &cDEF IF (&cWHEN) &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST SAY 8 EDITF mVALID = &cVALID @ nROW,nCOL &cSAY CWINDOW NWINDOW KBMEMO ETERCBAR ETERCCOLOR CFLD_DESC CFONTS CFUNC CMEMO CNAME CRANGE CREST CSAY_COLORCSIZE OLORCTXT CVALID LORCWHEN RCWHENX MDESC MVALID NPOPUP NSAY_COL NSAY_ROW BDISPLAY SBLANK NFLD_BEG NFLD_END SAY_ROW SAY_COL SAY_TXT GET_COL GET_ROW GET_NAME EGET_VALID GET_DESC GET_REST GET_PIC GET_FUNC GET_RANGE SIZE_1 SIZE_2 SIZE_3 GET_COLOR GET_WHEN RGET_DEF GET_POPUP FNFONTS NLEVEL FLD_DES MEMOF STORE &cNAME TO OPT(nFLD - nFLD_BEG + 1) STORE OPT(nFLD - nFLD_BEG + 1) TO &cNAME CNAME KNFLD ETERSCR ETERBSAVED NFLD_END NFLD_BEG GET_NAME GET_PIC KEYBOARD CHR(23) PLAIN cPR_PRNf Send a formfeed to printer? PRINTz SET PRINT &cPRINT YESNO KFNPRINT ERCPR_PRN ERCPRINT ENDSPOOL KEYBOARD CHR(23) PLAIN CWOUTPUT KEYBOARD CHR(23) PLAIN UPPER(FFF cKEY = &cKEY Search cINDEXf JKEY.PLB JKEY.FLL BNEAR KCCASE RCKEY ERCTALK CWOUTPUT CBROWSE CINDEX NINDEX JKEYCANC CPROGPATH JKEYINIT KEYBOARD CHR(23) PLAIN _OBJf CWOUTPUT K_OBJ Invalid Date, retype Invalid Input, retype SYSMENU \<System ALT+S \<Edit ALT+E \<File ALT+F \<Record ALT+R \<Window ALT+W \<About FoxPro... \<Help... User \<Manual bINITf ALT+M Alt+M Read.me READ.ME Register.doc REGISTER.DOC File_ID.DIZ FILE_ID.DIZ \<Macros... \<Filer bINITf \<Calculator Calendar/\<Diary \<Special Characters ASC\<II Chart Ca\<pture Pu\<zzle D\<OS Shell bINITf \<Quit Foxpro CTRL+Q DO DISPLAY WITH cPROGPATH+cMASTER+IIF(bINIT,"","2")+".MAN", " User Manual " DO DISPLAY WITH cPROGPATH+"READ.ME", " Read-me Document " DO DISPLAY WITH cPROGPATH+"REGISTER.DOC", " Register Document " DO DISPLAY WITH cPROGPATH+"FILE_ID.DIZ", " File ID Document " DO COMMAND Pr\<inter Setup... \<Print... \<Eject... DO EJECT \<Undo CTRL+Z \<Redo CTRL+R Cu\<t CTRL+X \<Copy CTRL+C \<Paste CTRL+V Clear Select \<All CTRL+A Goto \<Line... \<Find... CTRL+F Find A\<gain CTRL+G R\<eplace And Find Again CTRL+E Replace All Prefere\<nces... \<Goto... \<Locate... \<Continue CTRL+K \<Seek... \<Video ALT+V Alt+V \<Move CTRL+F7 \<Size CTRL+F8 \<Zoom CTRL+F10 Z\<oom CTRL+F9 \<Cycle CTRL+F1 Command bDEBUGf CTRL+F2 DO VIDEO DO DOT FNGETENV CPROGPATH CMASTER RBINIT RBDEBUG SYSMENU \<File Open, close, save, print files ALT+F \<Edit Undo actions, cut, copy, paste, find and replace selection ALT+E \<Record Perform operations on records in active table ALT+R \<Window Manipulate windows, display Command and View windows ALT+W \<Help Access information for learning and using FoxPro ALT+H Pr\<int Setup... Specify printer and print options \<Print... Print text file, contents of the Command window or clipboard \<Eject... Print page eject \<Quit Foxpro CTRL+Q Ctrl+Q DO EJECT \<Undo Undo actions, cut, copy, paste, find and replace selection CTRL+Z Ctrl+Z \<Redo Repeat the action previously reversed with Undo CTRL+R Ctrl+R Cu\<t Remove selection and put it on the clipboard CTRL+X Ctrl+X \<Copy Copy selection and put it on the clipboard CTRL+C Ctrl+C \<Paste Paste contents of the clipboard at the insertion point CTRL+V Ctrl+V Paste \<Special... Establish link to copied data Clear Erase selection \<Insert Object... Embed an object into a general field \<Object... Activate OLE object Change Lin\<k... View or update object link Con\<vert To Static Turn linked or embedded object into static picture Select \<All Select all lines of text or objects in current window CTRL+A Ctrl+A Goto \<Line... Move cursor to designated line number \<Find... Search for text CTRL+F Ctrl+F Find A\<gain Repeat the last text search CTRL+G Ctrl+G R\<eplace And Find Again Replace text and continue search CTRL+E Ctrl+E Replace All Replace all occurrences of the specified text Prefere\<nces... Establish edit settings \<Goto... Go to a specific record \<Locate... Look for the record that matches a specified condition \<Continue Continue to locate records CTRL+K Ctrl+K \<Seek... Search an indexed table \<Video Change Font sets ALT+V Alt+V \<Cycle Rearrange open windows to bring successive ones forward CTRL+F1 Ctrl+F1 Co\<mmand Display Command window bDEBUGf CTRL+F2 Ctrl+F2 DO VIDEO DO DOT \<About FoxPro... Display information about FoxPro and the system configuration \<Contents Display help contents \<Search for Help on... Search for help topic by typing or selecting a keyword \<How to Use Help Display instructions for using help User \<Manual Display/Print User Manual bINITf ALT+M Alt+M Read.me Display/Print Read-me Document READ.ME Register.doc Display/Print Register Document REGISTER.DOC File_ID.DIZ Display/Print FILE_ID.DIZ FILE_ID.DIZ Ca\<lculator Perform calculations Calendar/D\<iary Check dates and keep track of appointments \<Filer Manage files and directories bINITf Pu\<zzle Solve a puzzle D\<OS Shell bINITf DO DISPLAY WITH cPROGPATH+cMASTER+IIF(bINIT,"","2")+".MAN", " User Manual " DO DISPLAY WITH cPROGPATH+"READ.ME", " Read-me Document " DO DISPLAY WITH cPROGPATH+"REGISTER.DOC", " Register Document " DO DISPLAY WITH cPROGPATH+"FILE_ID.DIZ", " File ID Document " DO COMMAND FNGETENV BDEBUG CPROGPATH CMASTER RBINIT KEYBOARD CHR(23) PLAIN nLEVELf MODIFY WINDOW (cWINDOW(nLEVEL)) &cFONTS MODIFY WINDOW (cWINDOW(nLEVEL)) &cFONTS MODIFY WINDOW SCREEN &cFONTS FOXPRO.BAK FOXPRO.INI FOXPRO.INI FOXPRO.BAK FOXPRO.BAK FOXPRO.INI FontName= FontStyle= FontSize=FF GETENVF FONTNAME FONTSTYLE FONTSIZE [GetEnv] FontName= FontStyle= FontSize=FF _DOSf _UNIXf CFONT CFONTS CSTYLE RNFONT NLEVEL FNFONTS CREC1 CREC2 NFILE NFILE2 BFONTNAME BFONTSIZE BFONTSTYLEBGETENV ORCMEMPATH EFNFILE _GETENV KEYBOARD CHR(23) PLAIN STORE &cFIELD TO _calcvalue STORE VAL(&cFIELD) TO _calcvalue CFIELD CTYPE KEYBOARD CHR(23) PLAIN STORE &cFIELD TO _diarydate CASE cTYPE = 'C' .AND. LEN(ALLTRIM(&cFIELD)) = 8 STORE CTOD(ALLTRIM(&cFIELD)) TO _diarydate CFIELD CTYPE KEYBOARD CHR(23) PLAIN STORE _calcvalue TO &cFIELD STORE PADR(LTRIM(STR(_calcvalue)),LEN(&cFIELD)) TO &cFIELD CFIELD CTYPE CALCULATORW KEYBOARD CHR(23) PLAIN STORE _diarydate TO &cFIELD STORE PADR(DTOC(_diarydate),LEN(&cFIELD)) TO &cFIELD CFIELD CTYPE CALENDAR KEYBOARD CHR(23) PLAIN DEBUG TRACE TALKz <A. Toggle DEBUG Window - Currently XXX> DEFINE WINDOW DEBUGGER AT 1,17 SIZE 16-1-1,MAX(62-17-1,nMAX) TITLE " Debugger Access Menu " NOGROW NOFLOAT &cFONTS Program: F Line # : FF \<A. Toggle DEBUG Window - Currently F RUNTIMEFFlj EXEFFlj \<B. Toggle TRACE Window - Currently F RUNTIMEFFlj EXEFFlj \<C. Throttle - Currently F TRACE \<D. Toggle TALK - Currently F \<E. Toggle Video \<F. SUSPEND execution \<G. Open GETFILE() Box \<H. Open GETEXPR() Box \<Q. Return to Application ABCDEFGHQ DEBUG TRACE Throttle: Throttle: SET FILTER TO &cTEMP DEBUGGER MOUSE RIGHTMOUSE SET CONSOLE &cSYS_100 SET DEVICE TO &cSYS_101 SET PRINT &cSYS_102 SET TALK &cTALK NLINE CWINDOW NWINDOW CDEBUG CSYS_100 CSYS_101 CSYS_102 CTALK CTEMP CTRACE NCOLOR NTEMP TYLESSCREEN ORNSCHEME ECFONTS FNFONTS FNLEN RDEBUGGER CCHOICES CCHOICE FNCHOICE DEBUG TRACE VIDEO RELEASE MOUSE RIGHTMOUSEFNALTER FNALTERR FNANSI FNCHOICE FNCUROBJ FNDEACT FNFILE FNFLOCK FNFONTS FNFOUND FNLEN FNKEY FNLASTKEY FNNEXTKEY FNPOPKEY FNPOS FNPRINT FNPROGRAM FNRLOCK FNSTATUS FNTAG FNTALK FNZERO MAXCOL MAXROW YESNO ALERT ALTER APPEND COLOR COMMAND COPY_FILE DBCLOSE DELETE DIALOG DISPLAY DOT_DN DOT_UP ENDSPOOL FOXERR NEXTKEY PLSWAIT RELEASE SET_VIEW SIDEWAYS THERM WINDOW BROWSE CHOICE PROMPT VALID FLD_BRO FLD_DEL FLD_DES FLD_FND FLD_GET FLD_HELP FLD_MOUSE FLD_POP FLD_SAY FLD_SET FLD_SHW O F9N FLD_TAB FLD_TXT FLD_UNQ FLD_UQS OPTION PRINT OPT_GET OPT_SAY OPT_TXT EJECT DEX(nIN OBJLOCK READ_ERROR SYSM_DOS SYSM_WIN VIDEO ` LOAD_CALC LOAD_CALR SET_CALC SET_CALR DEBUGGER D:\DMAIL4\ SCRPROC.FXP D:\DMAIL4\SCRPROC.PRG